Imports DTO
Imports System.Data.OleDb
Public Class AbstractDAO
    Public Sub New()

    End Sub
    Public Function ConnectionData() As OleDbConnection

        Dim strcn As String
        strcn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = PTNK.mdb"
        Dim cn As New OleDbConnection(strcn)
        cn.Open()
        Return cn
    End Function

End Class
